Imports System.Xml
Imports System.Data.SqlClient
Public Class dSolicitudServicio
    Public Function Existe(ByVal CodigoSolicitudServicio As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoSolicitudServicio", CodigoSolicitudServicio))
        Return (dConexion.Consultar("STORE_TblSolicitudServiciosBuscar", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal CodigoSolicitudServicios As Long, ByVal FechaSolicitud As Date, ByVal FechaRealizacion As Date, ByVal descripcion As String, ByVal CodigoCliente As Long, ByVal estadoSolicitud As String, ByVal codigoTunidad As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEFechaSolicitud", FechaSolicitud))
        Parametros.Add(New SqlParameter("@pEFechaRealizacion", FechaRealizacion))
        Parametros.Add(New SqlParameter("@pEDescripcion", descripcion))
        Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        Parametros.Add(New SqlParameter("@pEEstadoSolicitud", estadoSolicitud))
        Parametros.Add(New SqlParameter("@pECodigoTUnidad", codigoTunidad))

        Return dConexion.ABM("STORE_TblSolicitudServiciosAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoSolicitudServicios As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoSolicitudServicios", CodigoSolicitudServicios))
        Return dConexion.ABM("STORE_TblSolicitudServiciosELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoSolicitudServicios As Long, ByVal FechaSolicitud As Date, ByVal FechaRealizacion As Date, ByVal descripcion As String, ByVal CodigoCliente As Long, ByVal estadoSolicitud As String, ByVal codigoTunidad As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoSolicitudServicios <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoSolicitudServicios", CodigoSolicitudServicios))
        End If
        If FechaSolicitud <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaSolicitud", FechaSolicitud.ToShortDateString()))
        End If

        If FechaRealizacion <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaRealizacion", FechaRealizacion.ToShortDateString()))
        End If

        If descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", descripcion))
        End If

        If CodigoCliente <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        End If

        If estadoSolicitud <> "" Then
            Parametros.Add(New SqlParameter("@pEestadoSolicitud", estadoSolicitud))
        End If

        If codigoTunidad <> 0 Then
            Parametros.Add(New SqlParameter("@pEcodigoTunidad", codigoTunidad))
        End If

        Return dConexion.ABM("STORE_TblSolicitudServiciosMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoSolicitudServicios As Long, ByVal FechaSolicitud As Date, ByVal FechaRealizacion As Date, ByVal descripcion As String, ByVal CodigoCliente As Long, ByVal estadoSolicitud As String, ByVal codigoTunidad As Long) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoSolicitudServicios <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoSolicitudServicios", CodigoSolicitudServicios))
        End If
        If FechaSolicitud <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaSolicitud", FechaSolicitud.ToShortDateString()))
        End If

        If FechaRealizacion <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaRealizacion", FechaRealizacion.ToShortDateString()))
        End If

        If descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", descripcion))
        End If

        If CodigoCliente <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        End If

        If estadoSolicitud <> "" Then
            Parametros.Add(New SqlParameter("@pEestadoSolicitud", estadoSolicitud))
        End If

        If codigoTunidad <> 0 Then
            Parametros.Add(New SqlParameter("@pEcodigoTunidad", codigoTunidad))
        End If
        Return dConexion.Consultar("STORE_TblSolicitudServiciosBuscarFILTRADO", Parametros)
    End Function
    Public Function Buscar(ByVal CodigoSolicitudServicios As String, ByVal FechaSolicitud As String, ByVal FechaRealizacion As String, ByVal descripcion As String, ByVal CodigoCliente As String, ByVal estadoSolicitud As String, ByVal codigoTunidad As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoSolicitudServicios <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoSolicitudServicios", CodigoSolicitudServicios))
        End If
        If FechaSolicitud <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaSolicitud", FechaSolicitud))
        End If

        If FechaRealizacion <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaRealizacion", FechaRealizacion))
        End If

        If descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", descripcion))
        End If

        If CodigoCliente <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        End If

        If estadoSolicitud <> "" Then
            Parametros.Add(New SqlParameter("@pEestadoSolicitud", estadoSolicitud))
        End If

        If codigoTunidad <> "" Then
            Parametros.Add(New SqlParameter("@pEcodigoTunidad", codigoTunidad))
        End If
        Return dConexion.Consultar("STORE_TblSolicitudServiciosBuscarFILTRADO", Parametros)
    End Function

    Public Function Listar() As DataSet
        Return dConexion.Consultar("STORE_TblSolicitudServiciosBuscarFILTRADO", New ArrayList)
    End Function
End Class
